home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / cnet / wof_cnet_641.lha / wof / WOF_Install.Rexx2 < prev    next >
Text File  |  1995-08-07  |  2KB  |  64 lines
  1. /* Convert v6.3b(c) to v6.41 Script; Used by Installer (v2.0) */
  2. options results
  3.  
  4. call open(f1,"pfiles:WoFortune.Config","r")
  5.   do 3;dfile=readln(f1);end
  6.   do i=1 to 10;co.i=readln(f1);end i
  7. call close(f1)
  8.  
  9. address command 'setenv WOFPath "'strip(dfile)'"'
  10. address command "rename "dfile"Prizes "dfile"Graphics"
  11. address command "makedir "dfile"Guides"
  12. address command "delete "dfile"Graphics/#? all"
  13. address command "delete "dfile"WOF6.*"
  14. address command "delete "dfile"Notes*"
  15. address command "delete "dfile"Game.A*"
  16. address command "delete "dfile"Game.I*"
  17. address command "delete "dfile"Docs.A*"
  18. address command "delete "dfile"Docs.I*"
  19. address command "delete "dfile"Log.*"
  20. address command "delete "dfile"Fix*"
  21. address command "delete "dfile"GameData"
  22. address command "delete "dfile"LastPlayer"
  23.  
  24. if exists(dfile"Reg.Key") then
  25.   address command "rename "dfile"PuzData "dfile"PuzData2000"
  26.  
  27. if exists(dfile"Millionaires") then
  28.   address command "delete "dfile"Millionaires"
  29.  
  30. if exists("pfiles:WoFortune.Loader") then
  31.   address command "delete pfiles:WoFortune.Loader"
  32.  
  33. if exists("pfiles:WoFortune/WoFortune.Loader") then
  34.   address command "delete "dfile"WoFortune.Loader"
  35.  
  36. call open(f1,"pfiles:WoFortune.Config","w")
  37.   call writeln(f1,"; v6.41 August 6, 1995")
  38.   call writeln(f1,";                               WOF CONFIG FILE, Supports ALL THREE Modules!")
  39.   call writeln(f1,dfile)
  40.   parse var co.1 v1'|'v2'|'v3'|'v4 ; call writeln(f1,v4)
  41.   do i=2 to 8 ; call writeln(f1,co.i) ; end i
  42.   parse var co.9 v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'v11'|',
  43.                  v12'|'v13'|'v14'|'v15'|'v16'|'v17'|'v18'|'v19'|'v20'|',
  44.                  v21'|'v22'|'v23'|'v24'|'v25'|'v26'|'j
  45.   a='0|N/A|0|'v3'|'v4'|'v5'|'v6'|'v7'|'v10'|'v11'|'v12'|'v13'|15|15|15|10'
  46.   a=a'|'v14'|'v15'|'v16'|'v17'|'v18'|'v19'|'v21'|'v22'|'v23'|'v24'|'v25
  47.   a=a'|'v26'|x' ; call writeln(f1,a)
  48.   parse var co.10 v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'v11'|',
  49.                   v12'|'v13'|'v14'|'v15'|'v16'|'v17'|'v18'|'v19'|'j
  50.   a=v1'|'v2'|'v3'|'v4'|'v5'|'v7'|'v8'|'v9'|'v10'|'v11'|'v12'|'v13'|'v14
  51.   a=a'|'v15'|'v16'|'v17'|'v18'|'v19'|x' ; call writeln(f1,a)
  52. call close(f1)
  53.  
  54. call open(f1,dfile'Players','r')
  55.   do i=1 until eof(f1) ; pl.i=readln(f1) ; end i ; players=i-1
  56. call close(f1)
  57.  
  58. call open(f1,dfile'Players','w')
  59.   do i=1 to players
  60.     parse var pl.i v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'j
  61.     call writeln(f1,v1'|'v2'|'v3'|1|0|'v6'|'v7'|'v8'|'v9'|0|'v10'|x')
  62.   end i
  63. call close(f1)
  64.